home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clipper Collection
/
Clipper Collection.iso
/
clipper7
/
nannws33.arc
/
CALLF.PRG
next >
Wrap
Text File
|
1988-11-01
|
486b
|
36 lines
* Program: Callf.prg
* Author: Timothy Wong
* Version: Clipper Summer '87
* Note(s):
*
* Copyright (c) 1988 Nantucket Corp.
* Main Program
CLEAR
CallProc("Proc1")
CallProc("Proc2")
CallProc("Proc3")
RETURN
FUNCTION CallProc
PARAMETERS UFunc
TempMacro = "&UFunc" + "()"
RetVal = &TempMacro.
RETURN(RetVal)
FUNCTION Proc1
? "I am UDF # 1"
RETURN(.T.)
FUNCTION Proc2
? "I am UDF # 2"
RETURN(.T.)
FUNCTION Proc3
? "I am UDF # 3"
RETURN(.T.)